﻿
Partial Class Pages_Admin_Deletepost
    Inherits System.Web.UI.Page


    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim id As Integer
        Integer.TryParse(Request.QueryString("id"), id)

        Dim f As New ForumDAO()
        f.DeleteMessage(id)

        Response.Redirect("Forum.aspx")


    End Sub
End Class
